Исходный текст

'==========================================================
'Обработчик события формы ввода. Предполагается, что на форму
'добавлен элемент управления Календарь (MSCal.ocx) c идентификатором "DATE_START"
Sub Form_BeforeShow(Form, Obj)
        
        'Получить ссылку на элемент управления
        Set ctrl = Form.Controls("DATE_START")
        If ctrl Is Nothing Then Exit Sub
        
        'Получить ссылку на объект Календарь
        Set calendar = ctrl.ActiveX
        If calendar Is Nothing Then Exit Sub
        
        'Сообщить текущее значение даты
        MsgBox calendar.Value        
        
        'Изменить цвет фона
        calendar.BackColor = RGB(255,255,0)
End Sub
'==========================================================